12 DV=PEEK(186):IFDV<8THENDV=8 20 POKE53280,.:POKE53281,.:PRINT"[147]":GOSUB60000 30 DIMN(255),L(255) 70 FORI=.TO255:N(I)=.:L(I)=.:NEXT 80 READA,B:IFA=-1THEN92 90 N(A)=1:L(A)=B:GOTO80 92 A=0:I=0:DI=36864 94 READA:IFA<>-1THENPOKEDI+I,A:I=I+1:GOTO94 96 POKE36881,DV 98 PRINT"[147][129] [204] [207] [193] [196] [211] [212] [193] [210] ' [211]" 100 PRINT"[158] [176][174][176][174][174] [176][192][174][176][192][174][174] [176][192][174][176][192][174][176][192][174][176][178][174][176][192][174][176][192][174] 110 [153]" (null)/EXP(null)(null) -=EXP-< (null) (null) (null)(null) -TAN< (null) (null) (null)-=EXP 120 PRINT" [189] [173][173][192][189] [189][173][189][173][192][189][173][192][189][173][192][189][173][192][189][189] [173] [177] [173][192][189][189][173][189] 126 [153]"CONT VALNTER $CONT FOR DIRECTORYONONON" 128 [151]214,5:[153] 130 [153]"CONT(null)RIGINAL FILENAME: ";:LN[178]15:[141]4100:[139]IN$[178]"_"[167]4200 132 [139]IN$[179][177]"$"[167]140 134 [153]"LOADOPEN":[158]DI 136 [153]"SYS(null)RESS A KEY" 138 [161]A$:[139]A$[178]""[167]138 139 [137]98 140 FL$[178]IN$:[153] 150 [151]781,8:[158]59903 152 [153]"CONT(null)EW FILENAME: ";:[141]4100:[139]IN$[178]"_"[167]4200 160 FS$[178]IN$:[153] 170 [153][166]8)"OPENRIGHT$NSERT DISK, PRESS (null)VAL(null)(null)(null)(null) 180 GETA$:IFA$<>CHR$(13)THEN180 200 CLOSE1:OPEN1,DV,15,"I":FORI=.TO99:NEXT:CLOSE8:OPEN8,DV,2,FL$ 210 GOSUB4150:IFERTHEN500 220 GET#8,A$,B$:A$=A$+CHR$(.):B$=B$+CHR$(0):SA=ASC(A$)+256*ASC(B$) 230 PRINT"[154][207]RIGINAL STARTS AT[155]"SA:PRINT"[154][197]XAMINING...":I=. 240 GET#8,A$:IFST=.THENI=I+1:GOTO240 250 CLOSE8:CLOSE1:EA=SA+I:FL=I:PRINT"[145] [207]RIGINAL ENDS AT[155]"EA" 260 [153]"CONT(null)EW START ADDRESS: ";:LN[178]4:[141]4100:[139]IN$[178]"_"[167]4200 270 LA[178][197](IN$):[139]LA[179]256[176]LA[177]52992[167][153]"ONON":[137]260 280 HB[178][181](LA[173]256):LB[178]LA[171](256[172]HB): 290 [139]LA[178]SA[167]4200 300 UP[178].:DI[178]SA[171]LA:[139]LA[177]SA[167]UP[178]1:DI[178]LA[171]SA 310 [159]1,DV,15,"I":[129]I[178].[164]99:[130] 320 [159]8,DV,2,FL$:[159]9,DV,1,FS$:[161]#8,A$,B$:[152]9,[199](LB);[199](HB); 330 S[178].:[141]4150:[139]ER[167]500 400 [143] MAIN ROUTINE 405 [151]53280,[187](1)[172]16:[151]53280,0 407 [141]4150 408 [139]ER[179][177]0[167]500 409 [139]S[179][177]0[167][153]"OPEN STR$ONE!":[137]4200 410 [161]#8,A$:A$[178]A$[170][199](.):A[178][198](A$):S[178]ST 420 [139]N(A)[178].[167][152]9,[199](A);:[137]405 430 [139]L(A)[178]1[167][152]9,[199](A);:[141]4160:[137]405 440 [152]9,[199](A);:[161]#8,A$,B$:A$[178]A$[170][199](.):B$[178]B$[170][199](.):A[178][198](A$):B[178][198](B$) 450 TE[178]A[170](256[172]B):[139]TE[177]SA[175]TE[179]EA[170]1[167]470:[143] INSIDE RANGE 460 [152]9,[199](A);[199](B);:[137]405 470 NV[178]TE[171]DI:[139]UP[178]1[167]NV[178]TE[170]DI 480 H1[178][181](NV[173]256):L1[178]NV[171](256[172]H1):[152]9,[199](L1);[199](H1);:[137]405 500 [160]1:[160]8:[160]9 502 [153]"DEF "E$ 510 [153]"SYS (null)RESS A KEY" 520 [161]A$:[139]A$[178]""[167]520 530 [137]98 4000 [131]1,1,5,1,6,1,9,1,13,2,14,2,16,1,17,1,21,1,22,1,25,2,29,2,30,2,32,2,33,1 4010 [131]36,1,37,1,38,1,41,1,44,2,45,2,46,2,48,1,49,1,53,1,54,1,57,2,61,2,62,2 4020 [131]65,1,69,1,70,1,73,1,76,2,78,2,80,1,81,1,85,1,86,1,89,2,93,2,94,2 4030 [131]97,1,101,1,102,1,105,1,108,2,109,2,110,2,112,1,113,1,117,1,118,1 4040 [131]121,2,125,2,126,2,129,1,132,1,133,1,134,1,140,2,141,2,142,2,144,1 4050 [131]145,1,148,1,149,1,150,1,153,2,157,2,160,1,161,1,162,1,164,1,165,1 4060 [131]166,1,169,1,172,2,173,2,174,2,176,1,177,1,180,1,181,1,182,1,185,2 4070 [131]188,2,189,2,190,2,192,1,193,1,196,1,197,1,198,1,201,1,204,2,205,2 4080 [131]206,2,208,1,209,1,213,1,214,1,217,2,221,2,222,2,224,1,225,1,228,1 4090 [131]229,1,230,1,233,1,236,2,238,2,240,1,241,1,245,1,246,1,249,2 4095 [131]253,2,254,2,-1,-1 4100 IN$[178]"":[151]198,.:[153]"TO"; 4105 [146]198,15:[161]Z$:Z[178][198](Z$):[139]Z[177]95[167]4105 4110 ZL[178][195](IN$):[139]ZL[177]LN[167]4120 4115 [139]Z[177]31[167]IN$[178]IN$[170]Z$:[153]"CMD"Z$"TO";:[137]4105 4120 [139]Z[178]13[167][153]"CMD ":[137]4135 4125 [139]Z[178]20[175]ZL[167]IN$[178][200](IN$,ZL[171]1):[153]"CMDCMDTO CMD"; 4130 [137]4105 4135 [139]IN$[178]""[167]IN$[178]"_" 4140 [142] 4150 [132]1,ER,E$,E1,E2:[142] 4160 [161]#8,A$:A$[178]A$[170][199](.):A[178][198](A$):[152]9,[199](A);:[142] 4200 [160]8:[160]1::[153]"CONT(null)ETURN TO (null)(null)ATNSTR$(null)(null)ATN(null)? (YCONT/NCONT)" 4210 [161]C$:[139]C$[178]""[167]4210 4220 [139]C$[178]"Y"[167]40000 4240 [137]98 10000 [159]15,8,15,"S0:B.ML RELOCATOR":[160]15:[148]"B.ML RELOCATOR",8:[128] 36864 [131] 169,036,133,251,169,251,133 36871 [131] 187,169,000,133,188,169,001 36878 [131] 133,183,169,008,133,186,169 36885 [131] 096,133,185,032,213,243,165 36892 [131] 186,032,180,255,165,185,032 36899 [131] 150,255,169,000,133,144,160 36906 [131] 003,132,251,032,165,255,133 36913 [131] 252,164,144,208,047,032,165 36920 [131] 255,164,144,208,040,164,251 36927 [131] 136,208,233,166,252,032,205 36934 [131] 189,169,032,032,105,144,032 36941 [131] 165,255,166,144,208,018,170 36948 [131] 240,006,032,210,255,184,080 36955 [131] 240,169,013,032,210,255,160 36962 [131] 002,208,198,032,066,246,096 36969 [131] 072,173,141,002,201,001,240 36976 [131] 249,104,076,210,255,000,000 36983 [131] 000,162,007,160,000,024,032 36990 [131] 240,255,162,000,160,025,177 36997 [131] 243,024,105,001,041,015,141 37004 [131] 235,003,173,039,208,041,015 37011 [131] 205,235,003,240,238,173,235 37018 [131] 003,160,025,145,243,200,192 37025 [131] 036,208,249,169,013,032,210 37032 [131] 255,232,224,009,208,212,096 37033 [131] -1 40000 A$[178]"HELLO CONNECT":[129]I[178]8[164]9:[160]2:[159]2,I,2:[160]2:[139]ST[167]40020 40010 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40030 40020 [130]:[153]"LOAD":[151]2048,0:[151]44,8:[151]53272,23:[151]186,8:[128] 40030 [151]646,[194](53281):[153]"LOADLOAD"[199](34)A$[199](34)","I 40040 [153]"RUN":[151]44,8:[151]2048,0:[151]631,13:[151]632,13:[151]198,2:[128] 60000 [153]"LOAD":Z$[178]" PRINT# ":[151]214,10:[153] 60010 [153]" LISTFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE":[129]I[178]0[164]8:[153]Z$:[130] 60020 [153]" POKEPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPRINT#" 60030 Z$(0)[178]"(null) (null) (null) VAL (null) (null) LEN ATN (null) (null) (null)":Z$(1)[178]"BY (null)TEVE VALMSLEY 60040 Z$(2)="([195]) 1994 BY [211]OFTDISK [208]UBLISHING"+CHR$(13) 60050 Z$(3)="[212]HIS PROGRAM IS THE COPYRIGHTED WORK 60060 Z$(4)[178]"OF (null)OFTDISK. RIGHT$T IS NOT SHAREWARE" 60070 Z$(5)[178]"OR IN THE PUBLIC DOMAIN." 60090 [151]214,12:[153] 60100 [129]I[178]0[164]5:[153][163]20[171]([195](Z$(I))[173]2))""Z$(I):[130]:[142]